﻿Imports TorneosBackEnd

Public Class RegistrarCabina


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub regnomcab_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles regnomcab.TextChanged


        Dim a = Me.regnomcab.Text
        Dim b = Me.regdircab.Text


        Dim n = New CabinaNegocio()


        Dim paquete = n.insertar(a, b)



        'BOrra  texto después de ingresar datos

        regnomcab.Clear()
        regdircab.Clear()




    End Sub
End Class